home *** CD-ROM | disk | FTP | other *** search
- %%BeginResource: procset spots 6.0 1
- %%Copyright: Copyright 1987-2001 Adobe Systems Incorporated. All Rights Reserved.
- %%Title: Predefined (named) spot functions for PDF
- 21 dict dup begin
- /CosineDot
- { 180 mul cos exch 180 mul cos add 2 div } bd
- /Cross
- { abs exch abs 2 copy gt { exch } if pop neg } bd
- /Diamond
- { abs exch abs 2 copy add .75 le
- { dup mul exch dup mul add 1 exch sub }
- { 2 copy add 1.23 le
- { .85 mul add 1 exch sub }
- { 1 sub dup mul exch 1 sub dup mul add 1 sub }
- ifelse }
- ifelse } bd
- /Double
- { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add } bd
- /DoubleDot
- { 2 { 360 mul sin 2 div exch } repeat add } bd
- /Ellipse
- { abs exch abs 2 copy 3 mul exch 4 mul add 3 sub dup 0 lt
- { pop dup mul exch .75 div dup mul add 4 div
- 1 exch sub }
- { dup 1 gt
- {pop 1 exch sub dup mul exch 1 exch sub
- .75 div dup mul add 4 div 1 sub }
- { .5 exch sub exch pop exch pop }
- ifelse }
- ifelse } bd
- /EllipseA
- { dup mul .9 mul exch dup mul add 1 exch sub } bd
- /EllipseB
- { dup 5 mul 8 div mul exch dup mul exch add sqrt 1 exch sub } bd
- /EllipseC
- { dup mul exch dup mul .9 mul add 1 exch sub } bd
- /InvertedDouble
- { exch 2 div exch 2 { 360 mul sin 2 div exch } repeat add neg } bd
- /InvertedDoubleDot
- { 2 { 360 mul sin 2 div exch } repeat add neg } bd
- /InvertedEllipseA
- { dup mul .9 mul exch dup mul add 1 sub } bd
- /InvertedEllipseC
- { dup mul exch dup mul .9 mul add 1 sub } bd
- /InvertedSimpleDot
- { dup mul exch dup mul add 1 sub } bd
- /Line
- { exch pop abs neg } bd
- /LineX
- { pop } bd
- /LineY
- { exch pop } bd
- /Rhomboid
- { abs exch abs 0.9 mul add 2 div } bd
- /Round
- { abs exch abs 2 copy add 1 le
- { dup mul exch dup mul add 1 exch sub }
- { 1 sub dup mul exch 1 sub dup mul add 1 sub }
- ifelse } bd
- /SimpleDot
- { dup mul exch dup mul add 1 exch sub } bd
- /Square
- { abs exch abs 2 copy lt { exch } if pop neg } bd
- end
- { /Function defineRes pop } forall
- %%EndResource
-